d <- read.table('makespan_all.txt', header=TRUE)

df <- d[d$ESCALONADOR == "FASTEST" & d$CHECK == "OFF",]

df2 <- reshape(df, v.names="MAKESPAN", idvar=c("TASK","DEMANDA","ESCALONADOR","CHECK","DENSIDADE"), timevar="GREEN", direction="wide")

df2$SLOWDOWN.SLEEP <- df2$MAKESPAN.SLEEP / df2$MAKESPAN.OFF

df2$SLOWDOWN.STANDBY <- df2$MAKESPAN.STANDBY / df2$MAKESPAN.OFF

Ecdf(df2$SLOWDOWN.SLEEP, q=c(.09525,.95,1), xlim=c(0,4), axes=FALSE, xlab="Slowdown", ylab="Proporção <= x", subtitles=FALSE)
axis(1,at=seq(0,25,0.5))
axis(2,at=seq(0,1,0.1), las=1)
box()

dev.copy2eps(device=postscript, file="cdf_makespan_all.eps")
